home *** CD-ROM | disk | FTP | other *** search
/ Sprite 1984 - 1993 / Sprite 1984 - 1993.iso / lib / perl / math.ph < prev    next >
Encoding:
Text File  |  1991-08-12  |  2.1 KB  |  73 lines
  1. if (!defined &_MATH_H) {
  2.     eval 'sub _MATH_H {1;}';
  3.     if (defined &__GNUC__) {
  4.     eval 'sub _CONST_FUNC { &const;}';
  5.     }
  6.     else {
  7.     eval 'sub _CONST_FUNC {1;}';
  8.     }
  9.     eval 'sub M_LN2 {0.69314718055994530942;}';
  10.     eval 'sub M_PI {3.14159265358979323846;}';
  11.     eval 'sub M_SQRT2 {1.41421356237309504880;}';
  12.     eval 'sub M_E {2.7182818284590452354;}';
  13.     eval 'sub M_LOG2E {1.4426950408889634074;}';
  14.     eval 'sub M_LOG10E {0.43429448190325182765;}';
  15.     eval 'sub M_LN10 {2.30258509299404568402;}';
  16.     eval 'sub M_PI_2 {1.57079632679489661923;}';
  17.     eval 'sub M_PI_4 {0.78539816339744830962;}';
  18.     eval 'sub M_1_PI {0.31830988618379067154;}';
  19.     eval 'sub M_2_PI {0.63661977236758134308;}';
  20.     eval 'sub M_2_SQRTPI {1.12837916709551257390;}';
  21.     eval 'sub M_SQRT1_2 {0.70710678118654752440;}';
  22.     eval 'sub _POLY1 {
  23.         local($x, $c) = @_;
  24.         eval "(($c)[0] * ($x) + ($c)[1])";
  25.     }';
  26.     eval 'sub _POLY2 {
  27.         local($x, $c) = @_;
  28.         eval "( &_POLY1(($x), ($c)) * ($x) + ($c)[2])";
  29.     }';
  30.     eval 'sub _POLY3 {
  31.         local($x, $c) = @_;
  32.         eval "( &_POLY2(($x), ($c)) * ($x) + ($c)[3])";
  33.     }';
  34.     eval 'sub _POLY4 {
  35.         local($x, $c) = @_;
  36.         eval "( &_POLY3(($x), ($c)) * ($x) + ($c)[4])";
  37.     }';
  38.     eval 'sub _POLY5 {
  39.         local($x, $c) = @_;
  40.         eval "( &_POLY4(($x), ($c)) * ($x) + ($c)[5])";
  41.     }';
  42.     eval 'sub _POLY6 {
  43.         local($x, $c) = @_;
  44.         eval "( &_POLY5(($x), ($c)) * ($x) + ($c)[6])";
  45.     }';
  46.     eval 'sub _POLY7 {
  47.         local($x, $c) = @_;
  48.         eval "( &_POLY6(($x), ($c)) * ($x) + ($c)[7])";
  49.     }';
  50.     eval 'sub _POLY8 {
  51.         local($x, $c) = @_;
  52.         eval "( &_POLY7(($x), ($c)) * ($x) + ($c)[8])";
  53.     }';
  54.     eval 'sub _POLY9 {
  55.         local($x, $c) = @_;
  56.         eval "( &_POLY8(($x), ($c)) * ($x) + ($c)[9])";
  57.     }';
  58.     if (defined &__STDC__) {
  59.     if (defined( &sun3) && !defined( &__STRICT_ANSI__) && !defined( &__SOFT_FLOAT__)) {
  60.         require 'math-68881.ph';
  61.     }
  62.     else {
  63.     }
  64.     }
  65.     else {
  66.     }
  67.     if (!defined &HUGE_VAL) {
  68.     eval 'sub HUGE_VAL {1.701411733192644270 &e38;}';
  69.     }
  70.     eval 'sub HUGE { &HUGE_VAL;}';
  71. }
  72. 1;
  73.